home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 109 / Ultra Gameplayers 109.iso / pc / media / ugpintro.dxr / 00004.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  751 b   |  29 lines
  1. on InstallQuickTime
  2.   if not (the quickTimePresent) then
  3.     set curplatform to the platform
  4.     if curplatform contains "Macintosh" then
  5.       set executable to "UltraGP\Setup\QuickTime‚Ñ¢\QuickTime‚Ñ¢ Install Disk 1\Installer"
  6.     else
  7.       if curplatform contains "32" then
  8.         set executable to "SETUP\Qt211\qt32.exe"
  9.       else
  10.         set executable to "SETUP\Qt211\qt16.exe"
  11.       end if
  12.     end if
  13.     if offset("Macintosh", curplatform) = 1 then
  14.       set path to executable
  15.       set path to replace(path, "\", ":")
  16.     else
  17.       delpush("\")
  18.       set basepath to the moviePath
  19.       set path to item 1 of basepath & "\" & executable
  20.       delpop()
  21.     end if
  22.     put path
  23.     open(path)
  24.     return 1
  25.   else
  26.     return 0
  27.   end if
  28. end
  29.